﻿Imports QLPhuTungOto.Data

Public Class testHang

    Private Sub testHang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim _dataTable As New DataTable()
        _dataTable.TableName = "DataTable"

        _dataTable.Columns.Add(New DataColumn("Ma", GetType(String)))
        _dataTable.Columns.Add(New DataColumn("Ten", GetType(String)))
        _dataTable.Columns.Add(New DataColumn("SoLuong", GetType(String)))
        _dataTable.Columns.Add(New DataColumn("ThanhTien", GetType(String)))
        _dataTable.Rows.Add(New Object() {"1", "As", "12", "12"})
        

        'gcGioHang.DataSource = _dataTable

    End Sub

    'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    '    gvGioHang.AddNewRow()
    '    Dim index2 As Integer = gvGioHang.FocusedRowHandle
    '    'Dim donGia As Integer = Integer.Parse(gvDSPhuTung.GetRowCellValue(index, gvDSPhuTung.Columns("colGiaBan")))

    '    gvGioHang.SetRowCellValue(index2, gvGioHang.Columns("Ma"), "as1212")
    '    gvGioHang.SetRowCellValue(index2, gvGioHang.Columns("Ten"), "PT1")
    '    gvGioHang.SetRowCellValue(index2, gvGioHang.Columns("SoLuong"), 12)

    '    gvGioHang.SetRowCellValue(index2, gvGioHang.Columns("ThanhTien"), "1000")
    '    gvGioHang.UpdateCurrentRow()
    'End Sub
End Class